﻿Public Class UsuarioNegocio

    Public Function listar() As DataTable
        Dim dao As New UsuarioDAO
        Return dao.listar()
    End Function

    Public Function validar(ByVal idUsuario As String, ByVal clave As String) As Usuario
        Dim modelo As New Usuario
        modelo.idUsuario = idUsuario
        modelo.clave = clave

        Dim dao As New UsuarioDAO
        Return dao.validar(modelo)
    End Function

End Class